1 POKE53280,0:POKE53281,15:POKE646,6 :PRINT"[147]":POKE53272,20 2 PRINT" [213][166][168][201] [213][168][168][201] [213][205]" 3 PRINT"[213][166][166][201][201][168][201] [213][205] [202][166][166][203] [213]'[205]/[205]" 4 PRINT" [202][166][203] [206][205][201][213][206][201], [202][166][168][168][203][203] [206][213][205]>[205] [201]" 5 PRINT" '[206]'/'[205]/[201][220][201][206][205] [206][205][187] '' [220][220])[216][216][205]" 6 PRINT" '[216][216][202][168][168][206][216][206][205][216][216][205][201] [206][188][190][205] ' [172] [220][220]>[205][216][216]" 7 PRINT" [213]<[203][168][205][220][168][206][206] [201][201][205][201][205] [207][183][183][208] [206][163][163][163][205] '[168][168][220][220][206][205]" 9 PRINT"[213][178][178][178]/[223][216][216][205]<[183][184][197][196][195][198][175][164][164][199][176][174][167] [216][216][190][190][190][190][165][216][216][216][216][168][168][216][216]" 10 PRINT"[213][178][178][178][178][216][216][216][216][216][183][197][197][197][196][195][195][198][168][165][173][189][200][197][196][195] [206][205] [198][210][164][168],,[216][168]" 11 PRINT"[166][216][216][216][183][197][196][196][196][196][195][198][198][220][220][168][168][168][183][183][183][183][183][183][168] [204][186] [216][216][196][192][192][195][198][198] " 12 PRINT"[166][166][216][216][216][216][220][220][168][183][166][166][166][166][166][166][166][206][205][175][175][216][168][216][216][216]([213][201]) [216][216][216][216][168][168][168][168]" 13 PRINT"[166][175][210][210][198][198][195][195][196][197][197][206][205] [168][216][200][172][187][187][172][205] [216][216] [[202][203]][197][197][197][197][205][213][216][168][168]" 14 PRINT"[163][183][184][184][196][166][166][206][163][163][163][165][187][180][220][168][168][188][190] [167][168][168][168][216][199][213][201][200] [215][215][215] [199][220],," 15 PRINT"[220][216][195][195],,[168][165][190][190][190][165][161][165][216][216][216] [206][205][187][216][216][216] [220][199][173][189][200] UUU [199][216][216][168]" 16 PRINT"[198][198][220][220]''[168][168][216][216][216][168][168][220][220][216][216] [207][216][207][208][216][216][216][216][199][182][161][200]=====[199][168][168][220]" 17 PRINT"[220][164][164][175][175][185][185][162][162][195][196][197][216][220][168][220][168][168][216][216][216][216][216][216][216][168][184][184][184][184][184][184][184][184][184][184][168][168][220]" 18 PRINT"[218][218][218][218][218][218][218][218][218][218][218][218][218][218][218][218][218][218][218][218][218][218][218][218][218][218][218][218][218][218][218][218][218][218][218][218][218][218][218]" 19 PRINT:PRINT"[156] EIN FROHES WEIHNACHTSFEST !" 20 PRINT 34 G=2^(1/12) 36 SI=54272 38 POKESI+24,15 40 POKE SI+5,16+9:POKE SI+12,16+9: POKE SI+19,16+9 50 POKE SI+6,4*16+4:POKE SI+13,4*16+4: POKE SI+20,4*16+4 53 READ N 55 IF N= 1THEN620 56 K=K+1 58 H=G^N*278.45827 60 HI=INT(H/256) 62 LO=INT(H)-HI*256 65 ON K GOTO 68,72,76 68 L1=LO:H1=HI:GOTO53 72 L2=LO:H2=HI:GOTO53 76 L3=LO:H3=HI: 100 POKE SI,L1:POKE SI+1,H1 110 POKE SI+7,L2:POKE SI+8,H2 120 POKE SI+14,L3:POKE SI+15,H3 140 POKE SI+4,17:POKE SI+11,17: POKE SI+18,17 165 K=0 170 READ D 210 FOR T=1 TO D:NEXT 220 K=0 230 GOTO 53 250 RESTORE 252 L6=L6+1 258 IF L6 >1 THEN 300: 260 GOTO 53: 300 POKE SI+4,0:POKE SI+11,0:POKE SI+18, 0 500 DATA 53,00,00,10 ,00,53,53,10 , 53,57,53,10 ,60,53,57,400 510 DATA 53,57,60,400,62,58,53,400, 60,53,57,400,0,0,0,10 520 DATA 58,55,53,10,57,53,53,10, 55,52,48,10,53,53,53,10 530 DATA 57,53,48,10,60,41,53,10, 57,38,53,10, 48,52,55, 900 540 DATA 0,0,0,10,55,52,52,10, 52,55,55,10,53,57,57,10 550 DATA 55,58,58,400,48,55,55,400, 53,57,53,400,60,60,57,400 560 DATA 0,0,0,10,57,53,53,10, 52,55,55,10,53,57,57,10 570 DATA 55,58,58,400,48,52,55,400, 53,53,57,10,53,55,58,10 580 DATA 53,57,60,400,45,60,45,10, 65,62,46,10,48,57,60,10 590 DATA 55,48,58,10,48,53,57,400, 52,55,48,400,53,53,53,1000 600 DATA 0,0,0,1000,1000,1 620 PRINT 635 PRINT" LUKIAN "; 640 PRINT" [218][218][218][218][218][218] " 700 POKE646,14:POKE198,0:WAIT198,1:PRINT"[147]":END